home *** CD-ROM | disk | FTP | other *** search
/ Belgian Amiga Club - ADF Collection / BS1 part 65.zip / BS1 part 65 / Math Visin v2.1 disk 2.adf / DataTemplates / Pairs_Scaled < prev   
Text File  |  1992-02-14  |  904b  |  39 lines
  1. ! Pairs_Scaled   array of data pairs with count and scaling at top
  2. !
  3. !-------------------------------- Prototype of data file --------------------
  4. ! elements  low_limit high_limit
  5. ! data, data
  6. ! data, data
  7. ! data, data
  8. ! data, data
  9. !-------------------------------- Example of data file -----------------------
  10. ! 5 .4 .8    ! 5 elements, scaled from .4 to .8 
  11. ! 4.3, 4.5  ! actual data
  12. ! 3.4, 2.4
  13. ! 5.6, 1.4
  14. ! 1.2, 7.8
  15. ! 6.7, 4.3
  16. !--------------------------------
  17.  
  18. Define Elements Integer
  19. Define Low Real
  20. Define High Real
  21.  
  22. !------------------------------ Get Elements and Scaling Here ---------------
  23. Read Elements
  24. Read Low
  25. Read High
  26. !----------------------------------------------------------------------------
  27.  
  28. BeginStructure
  29.   DefArray Elements Low High
  30.     DefStruct 2 ! how many fields in structure
  31.       DefDataType IEEE8
  32.       DefDataType IEEE8
  33.     EndStruct
  34.   EndArray
  35. EndStructure
  36.  
  37. RecurseRead
  38.  
  39.